home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh5x / sh52b.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  403b  |  17 lines
  1. 10 INPUT"WAS NUN ";BE$:REM BEFEHL
  2. 20 GOSUB51000         :REM ZERLEGUNG
  3. 30 PRINT:PRINT"BE$=";CHR$(34);BE$;CHR$(34):PRINT
  4. 40 FORI=1TO10
  5. 50 :PRINT"BE$(";RIGHT$(STR$(I),LEN(STR$(I))-1);")=";CHR$(34);BE$(I);CHR$(34)
  6. 60 NEXT:PRINT
  7. 70 GOTO10
  8. 51000 REMBE$ IN BE$(1)-BE$(10) ZERLEGEN
  9. 51010 FORI=1TO10:BE$(I)="":NEXT
  10. 51020 WZ=1
  11. 51030 FORI=1TOLEN(BE$)
  12. 51040 :IFMID$(BE$,I,1)=" "THENWZ=WZ+1:GOTO51060
  13. 51045 :IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO51060
  14. 51050 :BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
  15. 51060 NEXTI
  16. 51070 RETURN
  17.